﻿<%@ Page Language="VB" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">
    
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        
        '	Authorization level 3 needed for this function
        If Int32.Parse(Session("userLevel")) < 4 Then
            Response.Redirect("/timereport/menu.aspx?msgtype=E&msgno=" & ConfigurationSettings.AppSettings("MSGNO_AUTHORIZATION_FAILED"))
        End If
        
        Utilities.ExportXls(Request.QueryString("query"))
    
    End Sub
    
</script>

<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
    <title>Esporta</title>    
    <link href="/timereport/include/commoncss.aspx" rel="stylesheet" type="text/css" />
</head>

<script language=JavaScript src= "/timereport/include/menu/menu_array.js" type=text/javascript></script>
<script language=JavaScript src= "/timereport/include/menu/mmenu.js" type=text/javascript></script>  

<body>
    <form id="form1" runat="server">
    <div>
    
    </div>
    </form>
</body>
</html>
